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Club las secciones a las que estabais 
acostumbrados: El Basic paso a paso, 
listados, Vídeo-Pokes, Mapas. De 
modo análogo los lectores de MSX- 
Extra reconocerán fácilmente sus sec- 
ciones favoritas (aunque algunas ha- 
yan cambiado de nombre). 

En definitiva, hemos querido con- 
jugar lo mejor de cada una de nuestras 
revistas de MSX con las nuevas ideas 

nos inspira. Ofrecemos la revista de- 
finitiva para los usuarios de MSX. Para 
que rabien los usuarios del resto de 

Esta revista que tienes en tus ma- 
nos abre nuevos horizontes a los usua- 
rios del estándar. A partir de ahora 
todo aquello que quieras saber sobre 
el estándar está cada primero de mes 
en tu quiosco. Se llama MSX-Club. 


NUEVOS HORIZONTES 


¡Enhorabuena! Tras estas cortas va- 
caciones estivales (siempre son cortas 
las vacaciones estivales) estamos de 
nuevo con vosotros. Como habíamos 
prometido llegamos cargados de nue- 
vas ¡deas, en una nueva revista que, no 
obstante, sigue siendo la misma de 

En este número, aparte del aumen- 

suculento conjunto de novedades. 
Creemos que serán de vuestro interés 
las nuevas secciones que hemos crea- 
do para esta revista, fruto de los resul- 
tados de las encuestas realizadas en las 


antiguas MSX-Extra y MSX-Club. 
Prueba de ello son «Brainstorm», don- 
de encontrareis los mas alucinantes 
trucos para vuestro MSX, «BBS», en 
que os informaremos de lo último en 
el mundo de las comunicaciones vía 
módem para MSX y «Del Hard... al 
soft» (retomando el nombre de la an- 
tigua serie de MSX-Extra) donde nues- 
tro equipo de sabelotodos responderá 
vuestras consultas tanto referentes a 
hardware como a software. 

Pero no todo son novedades. 
Aquellos 'que nos seguís desde siem- 





EMILIO BUTRAGUENO i FUTBOL! 



"Está de moda motivar la compra de 
JZivideojuegos con el fichaje de famosos 
del mundo del deporte. TOPO Soft no se 

llevará el tirulo del titular de* estí noticia! 
EMILIO BUTRAGUEÑO ¡FUTBOL!, y 

esta indoMperepectiva a vista je pájaro, 

disponible para todas las versiones, inclui- 
da, sin duda alguna, la de MSX. 

Por otra parte, cabe decir en favor de 
este juego que la 'fuerte popularidad de 
Butragueño como jugador sobrepasará el 
medio habitual de los videojuegos para 
introducirse en otros canales. Es de supo- 




informáticos, consiguiendo lograr un inte- 

de ordenador, y con más repercusiones 

Este juego, histórico ya, sin lugar a 
dudas, se convertirá en uno de los progra- 
mas más vendidos del presente año. 
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1/ BIT BIT 

ln Software, software, sólo soft- 
iu ware, desde el mas alucinante 
juego de ajedrez al último éxito de 
Dinamic, pasando por la cabina de 
un 747 y los mandos de lo último 



alizar la primera entrevista conjun- 
ta radio-prensa dedicada al mundo 
de los videojuegos. En esta primera 
ocasión entrevistamos a P. Rius, 
Director comercial de Mind Games 
España, ¡y nos enteramos de cada 



' MONITOR AL DIA 

) Todas las novedades más ir 
; tesantes del mundo MSX. 



W DIGITALIZADOR DE 
// SONIDO 

uu Si tienes un MSX-2 con 2 
Kb de RAM y te gusta el ensa 



\ B.B.S. 

I Las bases de datos están por blador aqi 
fin llegando, con varios años 



)s de MSX pueden ser los prir 
s en acceder a este enorme poten- 
tl informático. 



digitalizador 



lido. 



ido 



CALL XXIII 
El VDP de los MSX-2 (II) 

Todo aquello que los usuarios 
de MSX-2 están esperando saber 
acerca del VDP de sus aparatos está 
aquí... Bueno, aquí y en el anterior 
capítulo de CALL, y en los siguien- 
- c - que hay tanto que decir acer- 
té extraordinario chip de vi- 




% EL QUIJOTE 

/ ] ¿Quién sinó MSX-Club podría 
ofrecer el mapa completo de la 
versión MSX del juego que los in- 
geniosos hidalgos de Dinamic le 
han dedicado a cierto personaje de 
cuyo nombre no qi 



Q TRUCOS Y POKES 

.X Su nombre todo lo dice: Trucos 
~ y Pokes para tus juegos de 



' Un ei 



le .poder 



DEL HARD Al SOFT 

Willv MiragaU y Carlos Mesa 
resolverán todas vuestras con- 
sultas tanto de hard, como de soft. 
¿Os atrevéis a ser vosotros los pró- 




) ENTREVISTA A ... 
/ PEDRO RIUS 

' Sólo MSX-Club, en colabora- 
in con la Cadena Cope, podía re- 



bajo el teclado de 

i ordenado- - 

un sólo POKE 
para liberar ese po- 
der, un POKE que 
sólo podrás 




gratuitas para 
todos nuestros lectores con las que 
podréis intercambiar, comprar o 
vender hard y soft original (que no 



; EL BASIC PASO 
A PASO 

Atacamos por fin una de las 
;s más temidas del BA- 



msxclub 



Director Ejecutivc 



Tel. <91>}U09« Fwórompositión y Fotomecánica: JORVK. 



n-pr..li:,i..»i 



vj ilc MANHATTAN TRANSITAR. S A 

>..r.,l ., |..„u.,l ,„„ cuulquiet M¡»*pM publicación 









BARNAJOCS, 
UNADISTRIBUnX)RA 


juegos ocupó las páginas de la revista. En 
él se comentaba la eficacia de este joycard 
comparado con otros joysticks del mercado. 


Chess game, y a un arcade excepcional 




EXCLUSIVA DE 

VIDEOJUEGOS 

QUE ACABA DE NACER 


fué causa precedente de infinidad de cartas 
y llamadas telefónicas preguntando por la 
comercialización de este producto. En res- 
puesta a ello, MSX-CLUB de mailing y el 
equipo de este departamento, consideró 
oportuno dar a ofrecer este excepcional 
periférico a todos los usuarios del estándar. 






dar las felicitaciones a empresas como la 
ahora comentada, que arriesgan su come- 


conseguirlo a través del departamento co- 






nomZe muy" acentldamen're"' regbn" 
parte de la base de dos tiendas dedicadas 
al software de videojuegos, Platinum. En 


este departamento por el logro que ello 
representa para los usuarios de MSX. Y 
por otra pane, el precio de Yanjen tam- 






este lance, puestos en contacto con el res- 
posable de la nueva distribuidora se nos 


bién es increíble, 2.360 ptas.; lo que repre- 
senta un descenso de precios en compara- 
ción a otros joysticks imperecederos que 


RASTANSAGA 
POR FIN EN MSX 

'"pal como suena. El arcade más increíble 

los jue^^é^I^"^^ ya^st 
disponible para los ordenadores de la ñor 

segunda generación. En efecto, este cartu 




mercado programas para el estándar MSX, 

mos de ellos. Por otro lado el primer juego 
exclusivo de esta distribuidora es, nada más 
y nada menos, que un simulador de carre- 
ras automovilísticas creado para la versión 


tado por la contribución a levantar la ñor- 




Amstrad PCW. Y es que en los proyectos 
de esta empresa están los de satisfacer la 
enorme demanda de juegos para las ver- 
siones más olvidadas. Un logro que es de 


MCM, MSX -DISCO 




YANJEN: ELJOYCARD 
EXCLUSIVO, SE 
COMERCIALIZA CON LA 


jj|C 


vecíno francés Maubért Electronic. Esto 
evidentemente, repercute en la distribución 
en nuestro país, al ser los importadores y 
no las distribuidoras, los que esparzan por 






cho. Para los que no conozcan el juego, un 




COLABORACION DE 
MSX-CLUB DE MAILING 


uando MCM hizo su presentación ofi- 
de una nueva empresa siempre es modes- 


el mundo de Maranna, habitado por una 
raza de bárbaros, Rastan el rey-guerrero 
deberá destruir al malvado mago Karg 
Este, intentando derrocar a Rastan, hí 




a su exitoso catálogo. Así, hemos podido 

empresa anglosajona ELITE para el resto 
de versiones de otros ordenadores. Tocán- 


enemigos hasta llegar a la tierra de Kart 




dole el turno a los usuarios de MSX, éstos 
ya pueden disfrutar desde el mes pasado 
de dos nuevos videojuegos en formato dis- 


gente de armas y poderes, y un gran nú- 
el juego de barbarie, sangre y violencia 




quette. Haciendo un balance recordatorio 
cabe señalar que los anteriores juegos en 
este soporte fueron los de la compañía 
Opera soft. Ahora, y como ya se ha citado 






TJn el número 45 'de nuestra revista 
Hi hermana MSX-EXTRA, un reportaje 
sobre este fabuloso controlador digital de 


de los grandes juegos, Maubert también bi 




anteriormente, le ha llegado la ocasión a 
un impresionante juego de ajedrez, The 


NINZA, éste último de la casa Hal y con 
un mega-Rom de potencia. Impresionante 



¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 




¡SI TE HACE FALTA ALGUN NUMERO DE I 

Para contar con la más completa colec( 
pón y dirigirlo a Dpto. Suscripciones W 



PIDELO HOY MISMO! 



-BOLETIN DE PEDIDO 



por el importe de 

NOMBRE Y APELLIDOS . 
CALLE 



........ de MSX CLUB DE PROGRAMAS, libre de" 1 

del Banco/Caja I 

ptas. al portador barrado. 




ípartamemo Suscripciones MSX CLUB. NO S 



CONTRAREF.MBOI.SO. 



El basic paso a paso 



MUSICA EN 
BASIC (V) 



¿POR QUE SOUND? 

Alas posibilidades de la instrucción 
SOUND debemos plantearnos el 
porqué de ella. ¿Qué ocurre realmente en 
nuestro MSX? ¿Qué quiere decir exacra- 
mente la función SOUND? 

El sonido que generan nuestros MSX 
proviene, en el fondo, de un chip especia- 
lizado en la realización de multitud de 
notas y sonidos, el PSG (Programmable 
Sound Generator). La instrucción SOUND 
nos permire, directamente desde el BASIC, 
programar este chip como haría cualquier 
programador de lenguaje ensamblador. 
Podemos obtener, gracias a esto, cualquiera 
que aparecen en programas 




El PSG de los MSX emite constante- 
mente sonido por susurres canales meló- 
consulta una serie de registros dispuestos 
cié de variables. La principal deferencia 

estructura especial diseñada por hardware. 
Sin embargo, para nosotros, su utilización 
será bastante similar al de una variable en 
la que sólo podemos escribir. 

La instrucción SOUND es precisamen- 
te la que nos permite acceder a cada uno 
de los 14 registros del PSG. 

REGISTROS DEL PSG 

Como podéis ver en la tabla 1, el PSG 
cuenta con 13 registros que, en realidad, 
son sólo 10. Esto ocurre porque en cuatro 
ocasiones se unen dos registros para for- 
mar uno sólo, ya que en 
pueden introducirse núr 

extendido hasta 6«35. 

Los primeros registros de los que ha- 
blaremos son los de control del volumen 
en cada uno de los tres canales de sonido. 
Se rrata de los registros 8, 9 y 10. Hagamos 



Teclead en vuestro 1 
PLAY "C" 

¿El sonido ya cesado ya? Unas cu 



,PorWillyMiragall, 



Hoy trataremos uno de los "co- 
cos" más temidos de la programa- 
ción musical, la instrucción 
SOUND. Y no hay por qué asus- 
tarse ante esta instrucción. Su ma- 
nejo, aunque tedioso y largo, no 
es tan complicado como a primera 
pueda parecer. 



Funciones de los registros del PSG 



RegrstroNo. 


Función 




0 


Frecuencia del canal A 


0-255 


1 


0-15 


2 
3 




0-255 
0-15 


4 
5 


Frecuencia del canal C 


0-255 
0-15 


6 


Frecuencia de mido 


0-31 


7 


Selecciona un canal para generación 
de tonos y ruido. 


0-63 


8 


Volumen canal A 


0-15 

na 16 hay variación 
del volumen. 


9 


Volumen canal B 


10 


Volumen canal C 


11 


Frecuencia del patrón de variación 
de volumen 


0-255 


12 


0-255 


13 


Selección del patrón de variación 
de volumen 


0-14 




ha hKho^L^^PUi^^il^r 
la nota es poner el control de volumen del 



cario por medio de la instrucción SOUND. 
Teclead la siguiente instrucción 
SOUND 8,8 

La nota que había generado el coman- 



» SOUND 8,0) M 
esta ñora. Y esta es oí 
de las ventajasde SOUND con respecte 
PLAY, ya que el hecho de que suene 
nota no afecta para nad ' 



is seguir tecleando 



14 



volumen de 
y 10). Una 



determinada nota por uno de los canales 
sonoros deberemos indicarle al PSG la 
frecuencia de dicha nota. ¡Bien!, en realidad 
no le pasamos la frecuencia, sino la lon- 
gitud de un bucle de espera, ¿qué quiere 

B soni do segenera haciendo vibrar la 



el sonido). Para 
cuándo debe tensar o relajar 
ibrana del altavoz, i ' * 




contenido. ¿Cuándo recibe el PSG 
señales? Todo el funcionamiento de nues- 
tro MSX, y obviamente también el del 
PSG, se halla regido por una señal de reloj. 

señal que, tras pasar por un 



E=1789772.5/(16*F) 



frecuencia válida. Se me olvidaba, 
1789772.5 es el número de veces por se- 
gundo que el reloj envía una señal. Por 
ejemplo, queremos obtener una nota LA 
de la octava 5, es decir, un sonido de 880 
ciclos. Haremos - 

E=1789772.5/(16*880) 

SOUND0JE 

SOUND1.0 

SOUND8.8 

y voilá, ante nuestros oídos desfila la 
la nota LA. " e ° defmmva ' 

ENTRANDO VALORES 



is. El canal A utiliza los registi 



impar de la tupia en cuestión, la variable 
V tomará el valor del registro conjunto. 
Veamos la fórmula inversa, es decir, la que 
a partir de un valor para el contador del 
bucle del PSG nos dé el contenido de los 
registros A (registro par de cada pareja) 
y B (registro impar). 

A=E MOD 256 

B=E \ 256 

En definitiva, a partir de una frecuen- 
cia F podemos hacer 

E=1789772.5/(16«880) 
SOUND Oí MOD 256 
SOUND 1.E \ 256 

la nota de la 
lal A. Páralos 

sólo que utilizando los registros 2 y 3 I 
(canal B) o los registros 4 y 5 (canal C) 

¡Menuda paliza! Después de este inin- 



técnicas y fórmulas que aparecen por arte I 
de magia os dejamos para que meditéis con 
más tranquilidad, sobre la instrucción I 
SOUND. En el próximo número lo veréis 
más claro, os lo aseguramos. 



Software 



Por Silvestre Fernández 



DON QUIJOTE 



«En un lugar de la Mancha, de 
cuyo nombre no quiero acordar- 
me, no ha mucho tiempo vivía un 
hidalgo de los de lanza en astillero, 
adarga antigua, rocín flaco y galgo 
corredor. Una olla de algo más 



PRIMERA PARTE. 
EPISODIO UNO. 



que era realmente la cocina, y al ABRIR 
la ALACENA y EXAMINAR la ALACE- 
NA, contempló una llave. COGER LLAVE 
'ié el siguiente paso. Después, una vez 
minó hacia el SUR y después al ESTE 

cerrada. ABRIR PUERTA le permitió, t 
la llave que poseía, salir a la ' 
delpt ' 



de,AÍba m u a ave 



EPISODIO DOS. 

Un bando esraba situado en 
>r tanto LEER BANDO era lo 



hacia el NORTE hasta no poder avanzar. 
Y una vez en este punto lo hizo al ESTE 

estaba cerrada decidió LLAMAR a la 
PUERTA. Al entrar al recibidor y hacia el 
NORTE optó por EXAMINAR un CAN- 
DELABRO. Como una de sus velas estaba 
suelta, COGER VELA fué la siguiente ac- 
ción a realizar. Al SUBIR al primer rella- 
no, y en ocasión hacia el OESTE, se fijó 
en un martillo: COGER MARTILLO Así, 
con este objeto en su poder regresó por sus 
propios pasos. ESTE, BAJAR, SUR, OES- 
TE, y SUR por el bosque hasra encontrar 

Don Quijote hizo el gesto de MOVER el 
ARBOL para COGER la MANZANA caí- 
da. De nuevo se dirigió hacia el SUR 
mientras pudo, y luego torció al OESTE 
hasra llegar a Argamasilla. El camino hacia 
el SUR le condujo hasta la Mancha, donde 
al llegar al final cambió de dirección hacia 
el OESTE tres veces, y posteriormente al 
SUR. Una puerta le impedía pasar puesto 

da. Para arreglarla nada mejor que el mar- 
tillo. De modo que golpeando con el mar 

tilla, dictaminó la orden ARREGLAR 
PUERTA... Y luego al SUR. Allí contem- 
plando una gallina decidió COGER la GA- 



la ocasión de VELAR ARMAS y 



EPISODIO TRES. 

Conociendo como ya conocía el terrt 
no mapeado de esra aventura, Don Quijoi 

zaguán. En este punto se puso a EXAMI- 
NAR la ESCALERA y después a EXAMI- 
NAR ESCALON. COGER el ESCALON 

el problema estaba en que llevaba dema- 
siadas cosas, por lo que tuvo que DEJAR 
la ESPADA y DEJAR el MARTILLO. 
Ahora ya podía COGER el ESCALON. 



y una hacia el OESTE. Al llegar al 
rilado y DEJAR el TABLON, sigi 
dirección OESTE. Había un pedruscc 
suelo; por lo tanto COGER el PEDRUS- 
CO fué la posterior acción. Una vez dejado 

hasta su casa para reCOGER la' ESP AD A 
que había dejado en el suelo. La con» 
cia de rodo ésro fué llegar, de nue 
bosque; y al sentirse hambriento, EXAMI- 
NAR el SUELO le concedió la gracia c 
ARRANCAR el NISCALO para COGE 
el NISCALO y utilizarlo alimentariamen 
después. Prosiguió hasta el NORTE y 
acabar el camino, continuó por el OESTE 

fué DEJAR PEDRUSGO, SUBIR 
DRUSCO, ESCALAR MURO, y COGER 
BOTELLA. Esta última se encontraba e 
condida de tal forma que, para poder a 



Programa ■ 



■ Por José Luis Camba Romero ■ 



Minicocos 



Este juego es una variante del clásico C( 
pero con la diferencia de que en la presente ver- 
sión el objetivo consiste en comer todos los pun- 
tos que aparezcan en pantalla en el menor tiempo 
posible. Este tiempo descenderá a medida que va- 
yamos superando los distintos niveles. 



10 WITTH 40 



■IEMBRE ** 19 



************************* 



< JOSE LUIS CAMBA ROMER 




:****************** 



290 F'RINT" 



************************** 
:********* ***** 
;********* MSX-CLUB * 
:********* n 
i***********************, 
:*** ** 



|(****** *************** 

* CLS: KEY OFF 
3 A*="l MINICOCOS ■" 
25» FOR T=J TO LEN (A*) 
260 L0CATE15,3:PRINT MID*(A*,1,T 

: F'RINT: PRINT 
270 FOR Z=l TO 20:NEXT Z:BEEP 



; "un tiempo de 8? segundos 
■mpc ira vajando según tu \ 
pasando pantallas. » 
í F'RINT" Tienes que' 
•ecords:El i 



5 que intentar 



el interme 
lal ' 



el i 



32::' B* = " ni BUENA SUEF 
330 FOR T=l TO LENÍB1Ü 
340 LOCA T Eé> . 20 > PR I NT MID*<B*,1,T 

350 FOR Z = l TO 290 j NEXT Z:NEXT T 
360 F'RINT: F'RINT" PULSA UN 

A TECLA" 

370 IF INKEY*=""THEN 370 



3^;> r 



ESC 



410 A*=INKEY* 

420 IF A*="1"THEN A=0:GOTO 4513 
430 IF A*="2"THEN A=1:60TO 450 
44 0 SOTO 410 



450 TB=100:TC=55:PAS=91: 
460 PAS=PAS-1 
470 IF PAS=8? OR PAS=B7 
5 OR PAS=B3 QR PAS=B1 Th 



5':! t' 



7 ülG 
P=0 
TTME=É 



. TD 20 
530 READ A* 
540 FOR M=3 TO 32 
53í< LOCATE M,N:PRI NT " . " 
560 IF MID* (A*. M-2. 1 )=";■:" 
CATE M,N: F'RINT CHR*<219) 
J NEXT M.N 
JIDTH 40 



5°s? 



SPRINT CHR*(1)+CHR 



)»STICK (A) 
640 ON A BOTO 650, 660, 670. 6B0 
¡0 IF D=l AND VPEEK(40*<Y-1)+X> 
■219 THEN Y-Y-l 

.0 IF D=3 AND VPEEK (40*Y+X+1 )<> 
219 THENX=X+1 

670 IF D=5 AND VPEEK (40* (Y+l » +X ) 
119 THEN Y=Y+1 

I IF D=7 AND VPEEK(40*Y+X-1)<> 
' THENX=X-1 
690 LOCATE Zl , Z2: PRINT" " 

m TI=TIME 

L0 IF VPEEK <40*Y+X) =46 THEN P=P 
l:PLAY"o5vl0136a" 
720 LOCATE 0, 22: PRINT"Puntos" ; P; 



730 J 



\'INT" 



750 IF TI/50: FAS THEN GOTO 780 
760 GOTO 610 

770 IF TI/50ÍPAS THEN 780 

780 CLSj PRINT: PRINT" [ [ C TA 

NTEO PARCIAL 3 3 3'" 

'90 PLAY"L1606AGGBCCDFFACEDDCCFA 

100 LOCATE 3, 5: PRINT "TU TIEMPO E 
! DE : "s TI/50 

810 LOCATE 3, 8: PRINT "TU TIEMPO E 

INTERMEDIO ES DE:"! TA/50 
820 LOCATE 3, 1 1 : PR I NT "HAS CONSEG 
'O ";P: " PUNTOS" 
' IF TBJTI/50 THEN TB=TI/50 
840 IF TOTA/50 THEN TC=TA/50 
850 B=90-PAS:C=B*287:TE=C+P 



880 GOTO i 
890 CLS 

900 PRINT" TANTEO 

FINAL **333" 
910 IF TB.'TI/5fc> THEN. TB-TI/50 
920 LOCA! E 7 . '.: : T-'R I NT " EL TIEMPO f 
AS BAJO ES DE : " ; TB 
930 IF TOTA/50 THEN TC=TA/50 
940 LOCATE 3,8:PRINT"EL T. MAS B 
AJO EN EL INTERMEDIO ES:",TC 
950 B=90-PAS: C=B*2B7: TE=C+P 
960 FLAY"V1514o4cqeE>geclSc". 
1 16o6cde-f qabo7co6qeceqecegecgco6 
bag-f edccc" , " V 1 51 Ba5cgegeqo6co5ge 
gegecc" 

970 if te:td 'HEN TD=TE 
980 LOCATE 5, 1 1 : PRINT "EL RECORD 
DE PUNTOS ES DE: " : TD 
990 LOCATE 5,14: F'RINT "TU HAS CON 
SEGUIDO " : TE; " PUNTOS" 
1000 FOR T=l TO 3000: NEXT T 
1010 GOTO 1430 
1021; GOTO 770 
1030 DATA 1 
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Programa — — 

POSIBLES ERRORES 
DELMSX-BASIC 



■Por Alvaro Pérez Magariño ■ 



El programa aclara las dudas sobre los errores 
del Basic-MSX y nos indica la forma de subsa- 
narlos más adecuada. Los errores hay que intro- 
ducirlos tal como aparecen, sintácticamente, en 
pantalla. El programa acepta 44 errores. 



I MINIPROGRAMA 

I POSIBLES ERRORES 

I DEL MSX-BASIC 

I POR ALVARO PEREZ 

I PARA MSX-CLUB 



1012 SCREEN 0: COLOR 15, 1,1:WIDTH 36 
1 10 DIM A*<44> ,B*(44) 
120 POKE &HFDE 1 , &HC3 1 PQKE S<HFDE2,8< 
HD2:P0KE &HFDE3, s<K23 : POKE !<HFDE0,,.«< 



150 LOCATE 1, liPRXNT" I 
I" 

160 LOCATE 1,2 SPRINT" I F 

pope::, del msx-basic r 

170 LOCATE l,3sPRINT" I 



190 BEEP: LOCATE 1 , 10: PR I NT " ERROR A 

CONSULTAR: " 
200 LOCATE 4, 13: INPUT N* 
210 IF LEN(N*>>26 THEN GOTO 

230 POR 1=1 TO 44 
240 READ A* < I > . B* < I > 
250 IF A*(I)= 
260 NEXT I 
270 LOCATE 2, 

280 LOCATE lt 

290 LOCATE 17, 12: PRINT"S/N" 

Í10 IF T*="S" OR T*="s" THEN RUN 
:20 IF TS="N" OR T$ = ,, n" THEN BEEP: 
ILS : POKE &HFDE0 „ S..HC9 : END 
130 GOTO 300 

:40 LOCATE 0,l:PRtNT", ," 

:50 LOCATE 0,2: PR I NT " I ERROR : |" 

:ó0 LOCATE 0,3:PRINT" <■ _ 

:70 LOCATE 9,2:PRINT A* ( I ) 
580 LOCATE 12,6:PRINT" i 



¡ THEN GOTO 340 



■"MAS ERRORES 




390 LOCATE 12,7:PRINT" 
V" 

400 LOCATE 12,8:PRINT" 



EXPLICACION 



420 LOCATE 1 
CE -" 

430 T*=INKEY*S IF T*="' 

440 IF T*=" » THEN RUI 

450 GOTO 430 

460 DATA Bad «locatil 



me.EE %&ñala.tia un; 



480 DATA BAD f i 1 e ñame, El nombre 2 



OREN SAVE 
>0 DATA BAD fila number.E! 
le jr fichero es mayar de 



i LOAD es 
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Progr-; 



instrucción STOP ( 
duce al .«edificar i 
ande CONT inmediata 

1/0 srror.u carq; 



mea o el fichero que se ca 

es un programa. 
'A Disi- ^ull. Ha sido utiliza 
t la capacidad del disquete; 



■ada o salida. Este es lo que se 1 
ima un 'error fatal* que quiere d 
:ir que el sistema MSX Di sk BASIC 
:iene que volver a ser puesto en 



i protected.Se i 



.squete a prueba de escritura), 
560 DATA División by zero.No esta 
litido dividir por 0;osea que • 
i hacemos nos indicara este err 
or. También puede producirse si se 
'vide por una variable a la que r 
se ha asignada un valor de antei 
lOiDor lo que coge el valor 0. 
570 DATA File already exists.El ni 

del comando ÑAME) es ya el nombre 



uentra en el disguste. . Fi le not OP 
or 3FEN. - 



)ATA File stdll open.No se Y 
«do el fichero. . Illeqal diré 



o MID* LEFTR» R1GHT* INP OUT WAIT 
FEEK PQKE TPE SFC STRINGÍ 3PACES ] 
NSTR DRAW. . .ect. 



620 DATA Intern; 



rmedio para la introducción de un¡ 

linea esta llena. 
630 DATA Missinq operand.Alqo man 
ha mal con respecto a uno de los t 
atos que hay que utilizar en una t 
xpresion. ,NEXT without FOR, Ha aidl 

in la instrucción FQR correspondí! 



640 DATA NO RESUME, L. 



650 DATA Dut c 



rama contiene demasiadas variab 

o BDSUBs o demasiados bucles FOR. 
660 DATA Out of string space.El es 
pació de memoria destinado a liter 
ales esta lleno. Con la instrucc 
CLEAR puede ampliarse este esp 

670 DATA Overflow.Un calculo pr 
ce un numera demasiado grande c 
mbien se produce si un valor as 
iíicado cae fuera del alcance c 
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Programa ■ 



■ Por Rafael Mateos g 



OPOSIT 



¿Deseas prepararte de cara a las oposicio- 
nes de los Organismos del Estado? Este test 
de preguntas y respuestas te ayudará en la 



10 PEI*! i:***:***************:********* 

EM ** AGATHA SOFT, PRESENTA:. 
30 REM ** OPOSIT 

EM ** POR: RAFAEL MATEOS M ARTEL 
50 REM *:*:»<• * * <'♦ + + ti *<• 1 "* ***#*#*##*#* 



¡INT" 



r:PRIN" 



J C C I 
: 'RINT 



l KEY OFF 

i PRINT" 1-LEA CON ATENCION LAS F'RE 
GUNTAS Y LAS RESPUESTAS" : PRINT: 
FOR F»l TO 5000: NEXT F 
90 PRINT"2-S0L0 EXISTE UN RESPUESTA 
CORRECTA Y EL NUMERO DE PREGUNTA 
S ES DE 40": PRINT 

PRINT"3-TE ACONSEJO QUE TE CRON 
□ METRES, DISF'O- NES DE UN MAXIMO DE 

1INUTQS,SI SUPERAS ESTE TIEMPO T 
E PENAL I Z ARE" : FR INT : FOR G= 1 TO 5000 
: NEXT G 

L10 PRINT "4-LAS PUNTUACIONES PUEDE 
*l PARECER DURAS PERO EN LAS OPOSIC 
ONES SON ASI": PRINT 

PRINT"5- BUENA SUERTE!!! 



150 



'PULSA L 



JKEY*: II 



TECLA PARA COME 



1 "THEN 1.40 ELSE 



150 CLS: COLOR 4.7,2 
160 C=0:E=0: Y-/.=0 

170 X*="QUE TITULO DE LA CONSTITl 
ON HACE REFERENCIA A LA CORONA " 

A*=" 1-SEPTIMO" : B*="2-TERCER0' 
5-PRIMERO" : DS="4-SEGUND0" 
190 GOSUB 1780 

IF N=4 THEN BEEF: C=C + 1 : GOTO : 
ELSE E=E+l:GOTO 210 

¡ X*="CADA CUANTO TIEMPO TIENE .EL 
DEFENSOR DEL PUEBLO QUE DAR UN INF 
ORME SOBRE SUS GESTIONES A LAS CORT 
ES?" 

220 A*="1-CADA CINCO AÑOS" : B*="2-CA 
} SEIS MESES ":C*="3-CADA DOS AfiOS 
>$-" 4 -ANUALMENTE" 




f GOSUB 1780 

I IFN=4 THEN BEEP: C=C+ 1 : GOTO 250 
ELSE E=E+1 :GOTO250 

250 X*="CUANTOS TITULOS POSEE NUEST 
RA CONSTITUCION?" 

260 A*="l-B TITULOS Y UN PREAMBULO" 
B*="2-12 TITULOS" :C*="3-10 TITULOS 
UN TITULO PRELIMINAR Y UN PREAMBUL 
I" sD*=" 4-1 «TITULOS Y UN PREAMBULO" 

!80 IF N=3 THEN BEEP: C=C+1 : GOTO 290 

ELSE E=E+l:GOTO 290 
290 X*="QUE DIA SE PUBLICO EN EL BO 
E NUESTRA CONSTITUCION?" 
300 A*="1-EL 29-12--*B":B*="2-EL 29- 

2-79" : C*="3-EL 27-12-78" : D*="4-EL 

10 GOSUB 1780 

Í20 IF N=l THEN BEEP: C=C+1 : GOTO 330 
ELSE E=E+l:GOTO 330 

'•30 X*="QUE ARTICULO DE NUESTRA CON 
STITUCION DICE QUE TODOS SOMOS IGUA 
LES ANTE LA LEY?" 

340 A*="1-EL ART. 25":B*="2-EL ART. 
14":C*="3-EL ART. 20":DÍ="4-EL ART 



ELSE E=E+1:G0T0 370 
370 X*=" CUANTO TIEMPO DURA EL ESTAD 
□ DE ALARMA?" 

380 A*=" 1-30 DIAS" :B*=" 2-60 DIAS":C 
*="3-15 DIAS";D*="4-NINGUNA ES CORR 
ECTA" 

390 GOSUB 1790 

400 IF N=3 THEN BEEP: C=C+1 : SOTO 410 

ELSE E=E*l:GOTO 410 
410 X*="CUANTOS ARTICULOS TIENE EL 
TITULO PRELIMINAR?" 

420 A*=" 1-NUEVE" : B*="2-0CH0" : C*="3- 

SIETE":D*="4-S€IS" 

430 SOSUB 1780 

440 IF N-l THEN BEEP: C=C+ 1 : GOTO 450 

ELSE E=E+l:GOTO 450 
450 X*="SE PUEDE RECURRIR ANTE EL T 
RIBUNAL CONSTITUCIONAL MEDIANTE EL 
LLAMADO: " 

460 A*= " 1 -RECURSO DE ALZADA" : B*=" 2- 
RECURSO DE AMPARO" : C*="3-RECURS0 DE 
SUPLICA" : D*="4-RECURSO CONSTITUCIO 
NAL" 

470 GOSUB 1780 

4B0 IF N=2 THEN BEEP: C=C+1 : GOTO 490 
ELSE E-E+liSOTO 490 

490 X*="PODRA PROCEDERSE A LA DISOL 
UCION DEL CONGRESO MIENTRAS ESTEN D 
ECLARADOS LOS ESTADOS DE ALARMA. EXC 
EPCION O DE SITIO?" 

500 A*="1-SI":B*="2-SIEMPRE QUE LO 
CREA OPORTUNO EL CONGRESO" : C*="3-SI 
.CUANDO LO DECIDA EL REY" : D*="4-N0" 
510 GOSUB 1730 

520 IF N=4 THEN BEEP: C=C+1 : GOTO 530 

ELSE E=E+l:SOTO 530 
530 X*="EL MAS IMPORTANTE MEDIO DE 
CONTROL SOBRE EL GOBIERNO CON EL QU 
E CUENTA EL CONGRESO DE LOS DIPUTAD 
OS ES: " 

540 A*="1-LA CUESTION DE CONFIANZA" 
:B*="2-LA I N VEST I DGAC ION ADMINISTRA 
TIVA":C*="3-EL 1 Y EL 2 ESTAN BIEN" 
:D*="4-LA MOCION DE CENSURA" 
550 GOSUB 17B0 

560 IF N=4 THEN BEEP: C=C+1 : GOTO 570 

ELSE E=E+l:GOTO 570 
570 X*="LA RESPONSABILIDAD CRIMINAL 

DLL PRESIDENTE Y DE LOS DEMAS MIEM 
BROS DEL GOBIERNO SERA EXIGIBLE:" 
580 A*="1-ANTE EL REY" : B*="2-ANTE E 
L CONSEJO DE ESTADO" : C*="3-ANTE LA 
SALA DE LO PENAL DEL TRIBUNAL SUPRE 
(MO (SALA 3) ":D*="4-ANTE LA SALA DE L 
O ^ PENAL DEL TRIBUNAL SUPREMO (SALA 2 

590 GOSUB 1780 

600 IF N=4 THEN BEEP: C=C+1 : GOTO 610 
ELSE E=E-t-l:GQTO 610 



610 X*="LAS CAMARAS SE REUNIRAN ANU 
ALMENTE EN DOS PERIODOS: " 
620 A*="1-DE ENERO-FEBRERO, MARZO-MA 
YO " : B*= " 2-DE SEPT I EMBRE-D I C I EMBRE , F 
EBRER0-MAY0":C*="3-DE SEPTIEMBRE-DI 
CI EMBRE, FEBREROAGOSTO" : D*="4-NINGUN 
A ES CORRECTA" 
630 GOSUB 1780 

640 IF N=4 THEN BEEP: C=C+1 : GOTO 650 

ELSE E=E+l:GOTO 650 
650 X*="EL CONGRESO DE LOS DIPUTADO 
S SE COMPONE DE:" 

660 A*=" 1-UN MINIMO DE 300 Y UN MAX 
IMO DE 400":B*="2-UN MINIMO DE 250 
Y UN MAXIMO DE 375 ": C*= " 3-425 DIPUT 
ADOS " : D*= " 4-250 D I RUTADOS " 
670 GOSUB 1780 

680 IF N=l THEN BEEP: C=C+ 1 : GOTO 690 

ELSE E=E+l:GOTO 690 
690 X*="EL DEFENSOR DEL PUEBLO ESTA 
RA SUJETO AL MANDATO IMPERATIVO DE: 

700 A*="1-EL PRESIDENTE DEL GOBIERN 
0":B*="2-EL CONSEJO DE MINISTROS" : C 
*="3-EL CONGRESO DE LOS DIPUTADOS": 
D*="4-NO ESTA SUJETO A MANDATO IMPE 
RATIVO ALGUNO" 
710 GOSUB 1780 

720 IF N=4 THEN BEEP: C=C+1 : GOTO 730 

ELSE E=E+l:GOTO 730 
730 X*="ESTAN LEGITIMADOS PARA INTE 
RPONER RECURSO DE INCONSTITUCIONALI 
DAD: " 

740 A*="1-EL REY":B*="2-50 DIPUTADO 
S Y 60 SENADORES" :C*="3-EL DEFENSOR 
DEL PUEBLO ":D*=" 4-60 DIPUTADOS Y 5 
0 SENADORES" 
750 GOSUB 1780 

760 IF N=3 THEN BEEP: C=C+ 1 : GOTO 770 

ELSE E=E+l:GOTC 770 
770 X*="DISUELTO EL CONGRESO SUS CO 
MPETENCIAS SERAN ASUMIDAS POR:" 
780 A*="1-UNA JUNTA MILITAR" : B$="2- 
UNA DIPUTACION PERMANENTE ": C*= " 3-EL 

CONGRESO NO SE PUEDE DISOLVER" : D*= 
"4-EL CONSEJO DE MINISTROS" 
790 GOSUB 17B0 

800 IF N=2 THEN BEEP: C=C+ 1 : GOTO B10 

ELSE E=E+l:GOTO 810 
810 X*="CUANTAS COMISIONES DELEGADA 
S DEL GOBIERNO ESTAN ACTUALMENTE IN 
STITUCIONALIZADAS?" 

820 A*=" 1-SIETE" : B*="2-SEIS" : C*="3- 

CINC0":D*="4-CUATR0" 

830 GOSUB 1780 

840 IF N=2 THEN BEEP: C=C+1 : GOTO 850 

ELSE E=E+l:GOTO 850 
850 X*=="CUAL DE LAS SIGUIENTES COMI 
SIONES NO PERTENECE AL CONSEJO DEL 
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PODER JUDICIAL: ' 

860 A*="l-COMISl 

2-C0MISI0N DISCIPLINARIA" : C*="3-C0M 

ISION REGLAMENTARIA" : Dí= " 4-COM I S I ON 
DE CALIFICACION' 

870 GOSUB 1780 

880 IF N=3 THEN BEEP: C=C+1 : GOTO 890 

ELSE E=E+l:GOTO 870 
390 X*="CUANTAS DISPOSICI.ONES TRANÍ 
[TORIAS POSEE NUESTRA CONSTITUCION' 

?00 A*=" 1 -NUEVE" : B*-"2-0CH0" : C*="3- 

3IETE":D*="4-CUATRO" 

PUS GOSUB 1780 

920 IF N-l THEN BEEF's C=C+ 1 : GOTO 930 
ELSE E=E+l:GOTO 930 

¡>?0 X*="DE DONDE EMANA LA JUSTICIA 

940 A4="1--DEL PUEBLO" S.B*»"2-DE LOS 
JUECES" : C*= " 3-DE LOS MAGISTRADOS" : D 

4-DEL REY" 
950 GOSUB 1780 

960 IF N=l THEN BEEP: C-C+l : GOTO9B0 
ELSE E=E+l:GOTO 980 

—I X*="EL PLENO DEL CONSEJO GENERA 
L DEL PODER JUDICIAL ESTA FORMADO P 
OR: " 



990 A*="1-PDR EL PRESIDENTE V IB W 
CALES ":B»="2-EL PRESIDENTE Y 20 VOC 
ALES ": C*= " 3-20 VOCALES ": D*= " 4-N I NGU 



me GOSUB 1780 

910 IF N=2 THEN BEEP: C=C+1 : GOTO 
■> ELSE E=E+l:GOTO 1020 
!120 X*="EL PLENO DEL CONSEJO GEI 
. DEL PODER JUDICIAL ESTARA VALIDA 
MENTE CONSTITUIDO CUANDO SE HALLARE 
«IIMO DE: " 
EMBROS Y EL PRESIDE 
EMBROS Y EL PRESIDE 
EMBROS Y EL PRESIDE 
EMBROS Y EL PRESIDE 



i PRESENTE L 



':D*="< 



NTE" 
1040 GOSUB 1780 

1050 IF N=4 THEN BEEP: C=C+1 : GOTO 
60 ELSE E-E+llGOTQ 1060 
1060 X*="HACE FALTA QUÉ 

DE LOS DIPUTADOS DE SU CONSENTIMIE 
NTO AL DECLARARSE EL ESTADO DE ALAR 
MA?" 

*»="1-SI, SIEMPRE": B*="2-N0, £ 
OLAMENTE SE LE DA CUENTA" : CS="3-EN 
ALGUNOS CASOS" :D*="4-SI, SI LO DETE 



RMINA EL CONSEJO DE ESTADO" 
080 GOSUB 1780 

090 IF N=2 THEN BEEP: C=C+1 : GOTO 1 
¡0 ELSE E=E+l:G0TO 1100 
100 X*="LA MOCION DE CENSURA DEBER 

SER PROPUESTA AL MENOS: " 
110 A*="l-POR LA DECIMA PARTE DE L 
OS DIPUTADOS" : B*="2~P0R EL 50 y." :C1 
3-POR EL 30 *":D*="4-P0R MAYORIA 
ABSOLUTA " 
120 GOSUB 1780 

130 IF N=l THEN BEEP: C=C+ 1: GOTO 1 
40 ELSE E=E+l:GOTO 1140 

140 X*="POR CUALES DE ESTAS CAUSAS 

NO CESARA EL GOBIERNO: " 

150 A*="l-POR LA CUESTION DE CONFI 
ANZA":B*="2-P0R DIMISION DEL PRESID 
ENTE":C*="3-P0R FALLECIMIENTO DEL F 
RES I DENTE " : D*= " 4-TRAS LA CELEBRACIO 

i DE ELECCIONES GENERALES" 

160 GOSUB 1780 

170 IF N=l THEN BEEP: C=C+1 : GOTO 1 
80 ELSE E=E+l:GOTO 1180 

180 X*="CUANTOS DEPARTAMENTOS MINI 
STERI ALES EXISTEN EN LA ACTUALIDAD? 



"1-12":B*="2-1 



190 t 
D* = "4- 
200 GOSUB 1780 
210 IF N=4 THEN BEEP: C=C+1 : GOTO 12 
20 ELSE E=E+l:GOTO 1220 

220 X*="CUAL ES EL ORGANO SUPREMO 
CONSULTIVO DEL GOBIERNO?" 
230 A*="1-EL CONSEJO DE ESTADO" : B* 
!"2-EL MINISTERIO DEL INTERIOR" : C*= 
3-EL CONSEJO DE MINISTROS" : D*=' 
NGUNA ES CORRECTA" 
240 GOSUB 1780 
250 IF N=l THEN BEEP : C=C+ 1 : GOTO 12 
60 ELSE E=E+l:GOTO 1260 
260 X*="LAS ACCIONES DEL REY SON S 
EMPRE REFRENDADAS?" 
270 A»="1-SI, SIEMPRE" :B*="2-SIEMP 
RE, EXCEPTUANDO LAS DECISIONES SOBR 
CASA REAL":C*="3-NUNCA":D*="4- 
CUANDO LO CREA OPORTUNO EL PRESIDEN 
_ E DEL GOBIERNO" 
280 GOSUB 1780 
290 IF N=2 THEN BEEP: C=C+1 : GOTO 13 
00 ELSE E=E+l:GOTÍl 1300 
300 X*="QUE DEPARTAMENTO MINISTERI 
iL NO EXISTE EN LA ACTUALIDAD: " 
310 A*="l-MINISTERIO DE INDUSTRIA 
' ENERGIA" :B*="2-MINISTERIO DE CULI 
URA":C*="3-MINISTERI0 DE DEFENSA" : X. 
■MINISTERIO DE LA GOBERNACION" 



1.320 SDBUB 17B0 

1330 IF N=4 THEN BEEP: C=C+1 : BOTO 13 
40 ELSE E=E+l:S0TO 1340 






1340 X*="CUANTOS MIEMBROS PDSEE EL 

TRIBUNAL CONSTITUCIONAL" 

1350 A*="l-13" :B*="2-12":C*="3-11": 

D*="4-10" 

1360 GOSUB 1780 

1370 IF N=2 THEN BEEP: C=C+ 1 : BOTO 13 
80 ELSE E=E+l:GOTO 1380 
1380 X*="QUIEN DEBE DE NOMBRAR AL F 
ISCAL GENERAL DEL ESTADO? " 






1390 A*="1-EL PRESIDENTE DEL TRIBUN 
AL SUPREMO" :B*="2-EL MINISTRO DE JU 
STICI A" : C*="3-EL REY" : D*= " 4-NINGUNO 

DE ELLOS" 
1400 GOSUB 1780 

141.0 IF N=3 THEN BEEP: C=C + 1 : GOTO 1.4 
20: ELSE E=E+l:60TO 1420 
1420 X*="QUIEN ES LA PRIMERA AUTORI 
DAD CIVIL EN EL AMBITO PROVINCIAL?" 
1430 A*="1-EL DELEGADO DEL GOBIERNO 
":B*="2-EL GOBERNADOR CIVIL" : C*="3- 
EL PRESIDENTE DE LA COMUNIDAD AUTON 
0MA":D*="4-EL PRESIDENTE DEL SOBIER 
NO" 

1440 GOSUB 1780 

1450 IF N=2 THEN BEEP: C=C+1 : GOTO 14 
60 ELSE E=E+l:EOTO 1460 




1580 X*="TODA DISPOSICION JURIDICA 
DE CARACTER GENERAL DICTADA POR LA 
ADMINISTRACION Y CON VALOR SUBORDIN 
ADO A LA LEY RECIBE EL NOMBRE DE:" 
1590 A*=" 1 -BANDO ":B*="2-REAL DECRET 
0" : C*="3-RECURS0" : D*="4-REGLAMENT0" 
1600 GOSUB 1780 

1610 IF N=4 THEN BEEP: C=C+1 : GOTO 1.6 
20 ELSE E=E+1:GDT0 1620 
1620 X*="EL RECURSO ADMINISTRATIVO 
CUYA DECISION CORRESPONDE AL MISMO 
ORGANO QUE DICTO EL ACTO IMPUGNADO, 

RECIBE EL NOMBRE DE RECURSO DE:" 
1 630 A4= " 1 -SUPL I CA " : B*= " 2- AL 1 ADA " : C 
*="3-REVISI0N" : D*="4-REP0SICI0N" 
1640 GOSUB 1780 

1650 IF. N=4 THEN BEEP: C=C+1 : GOTO 16 
60 ELSE E=E+1:B0T0 1660 


1460 X*="EL CARBO DE DELEGADO INSUL 

AR ES INCOMPATIBLE CON EL EJERCICIO 
DE CUALQUIER OTRO...?" 

1470 A*="1-N0":B*="2-N0.SI SE TIENE 
LA AUTORIZACION DEL PRESIDENTE DEL 
GOB I ERNO " : C*= " 3-S I " : D*= " 4— DEPENDE 

DE LA POBLACION" 

1480 GOSUB 1780 

1490 IF N=3 THEN BEEP: C=C+1 : GOTO 15 
00 ELSE E=E+l:GOTO 1500 




1660 X*="LA APROBACION DE LA OFERTA 
DE EMPLEO PUBLICO DEBE SER PROPUES 
TA AL GOBIERNO POR EL MINISTERIO DE 

1670 A*="1-LA PRESIDENCIA" :B*="2-DE 
HACIENDA" : C*="3-DEL INTERIOR" : D*=" 
4-DE CULTURA" 
1680 GOSUB 1780 


15.00 X*= "HABRA DELEBADOS DEL BOBIER 
NO EN CEUTA Y MELILLA?" 
1510 A*="l -NO" :B*="2-SI. NOMBRADOS P 
OR REAL DECRETO" :C*="3-S0LAMENTE HA 
Y GOBERNADOR" :D*="4-SI. NOMBRADO POR 

LEY ORGANICA" 
1520 GOSUB 1780 

1530 IF N=2 THEN BEEP: C=C+1: GOTO 15 

40 ELSE E=E+l:GOTO 1540 

1540 X*="QUIEN ES EL JEFE SUPERIOR 

DEL DEPAT AMENTO DESPUES DEL MINISTR 

0, SALVO EN LOS CASOS QUE EXISTA UN 

SECRETARIO DE ESTADO?" 

1550 A*="1-DIRECT0R GENERAL" : B*=" 2- 

EL PRESIDENTE DEL GOBIERNO" t C«="3-E 

L SUBSECRET ARIO" : D$-~" 4-N INGUNA ES C 

ORRECTO" . 

1560 GOSUB 1780 

1570 IF N=3 THEN BEEP: C=C+1 : GOTO 15 
80 ELSE E=E+1:G0T0 1580 




1690 IF N=l THEN BEEP: C=C+1 : GOTO 17 
00 ELSE E=E+1:G0T0 1700 
1700 X*="CUAL DE ESTAS CARACTER ISTI 
CAS NO CORRESPONDE A NUESTRA CONSTI 
TUCION: " 

1710 A*=" 1-FORMAL" : B*="2-ESCRITA" : C 
*="3-FLEXIBLE":D*="4-M0NARQUICA" 
1720 GOSUB 1780 

1730 IF N=3 THEN BEEF: C=C+1 : GOTO 17 
40 ELSE E=E+1:G0T0 1740 
1740 X*="QUE TITULO DE LA CONSTITUC 
ION TRATA SOBRE LA REFORMA DE LA CO 
NSTI TUCION?" 

1750 A*-"1-NINGUN0":B*="2-EL ULTIMO 
":C*="3-EL TITULO II":D*="4-EL TITU 
LO IV" 

1760 GOSUB 1780 

1770 IF N=2 THEN BEEP: C=C+1 : GOTO 19 
60 ELSE E=E+1:G0T0 1960 
17B0 REM SUBRUTINA DE RESPUESTAS 
1790 WIDTH 40 
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1800 PRINT "eíosoMíodí! 

S PRINT 

3 PRINT X* 

i PRINT: PRINT: PRINT 

i PRINT A* 

) PRINT: PRINT 

) PRINT B* 

) PRINT: PRINT 

J PRINT C* 

» PRINT: PRINT 

) PRINT D* 

I PRINT: PRINT 

l INPUT "INTRODUCE 

1 PRINT: PRINT 

) PRINT"oí>.>< 



950 RETURN 
960 COLOR 4, 
970 SCREEN 1 



2230 
22*0 
2- ■■■ 
22 60 
227 0 
2230 



: Y7.=< 90 THEN W=216-P 
r Y7.=< 80 THEN W-192-P 

IF Y7.=< 70 THEN W=163~P 

IF V/.=< 60 THEN W=144~P 
! Y7.=< 50 THEN W120-P 
' Y7.=< 40 THEN W= -96-P 
" V ■/.= <. 30 THEN W= 72-P 
' Y7.=< 20 THEN W= 48-P 
' YX=< 

REM DIBUJC 

OPEN"GRP: ' 

SCREEN 2 

LINE<35,4 

LINE<35, 1 

LINEÍ35.7 

LINE ( 155, í 



2310 U 
2:20 PSETU50, 
23:0 PSET(202, 



40)-<195,-: 
160) :PRINT#1, 
160) :PRINT#1. 



H0 LOCATE ' 

120 'LOCATE £ 
¡30 LOCA' 



RI NT "TOTAL F'REGUNT 

PRINT "ACIERTOS-" ; 
PRINT"FALLOS=";E 
2040. LOCATE 1,16 

2050 PRINT"SI TE HAS CRONOMETRADO, 
NTRODUCE EL TIEMPO EN MINUTOS" 
2060 INPUT T 

2070 REM FINALIZACIONES POR EXCESO 
DE TIEMPO 

20B0 IF T=<30 THEN P=0:GOTO 2120 
2090 IF T=<40 THEN P=10:QCTO 2120 
2100 IF T*<60 THEN p : 20: GOTO 2120; 
THEN P=3l 



2340 PSEM2. 70) :PRINT#1, "NOTA" 



2350 FOR W= 
2360 CL05E#1 
SCREEN 0 



"O 4500: NEXT \> 



'INTRODUCE 



. I ON" : 



REM OPERrf 



2390 PRINT" 1 -VOLVER AL GRAFICO" : PRI 
NT: PRINT 

2400 PRINT"2-V0LVER AL PRINCIPIO" : P 
RI NT: PRINT 

2410 F'RINT"3-TERMINAR" : PRINT: PRINT 

1 INPUT S 
2430 ON S GOTO 1960,10,2450 

GOTO 2420 
2450 PRINT "FIN DEL PROGRAMA" 
160 END 



Test de listados 



42 240 -244 350 -149 



470 -149 580 - 



45 690 - 32 



-234 170 -168 280 -103 



•149 500 - 48 ¿>10 - 



38 



REGALATE UN LIBRO 
VITAL PARA EL 





UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple 6c Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1 . Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 




Importante: 

l TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 



MANHATTAN 



- 08023 BARCELONA j 



Programa ■ 



■Por Jorge Castro ■ 



PROTECCION DE 
PROGRAMAS 



Este corto listado permite proteger cualquier 
programa utilizando cinco claves. Estas habrán de 
introducirse en menos de un minuto. Las claves, 
cómo no, van referidas al nombre del autor, J-O- 
R-D-I. Modifícalo a tu gusto. El programa se 
ejecuta por sí solo al grabarlo en ASCU, y está 




********* ** ********* * ***" + *** * 

* * *PROTECCIDN DE PROGRAMAS* 

* * * * * POR J. C. F. * * * 



0 POKE 32769 ! . 1 : CLEAR l¡?0:STOf 
ON STOP GOS'JB 370 
0 KEYOFF: COLOR 1, 14«WIDTH 39 
V CL3:G0SUB 2B0 

01? '* INTRODUCCION DE CLAVES * 
10 LOCATE 14.I?:rRINT"PR0TECCIÍ 
PROGRAMAS" 
12'? L0CATE4. 2: PRINT" INTRODUCE L 



.,,[-.. . , v 



' ELSE 



40 IF «*="J"THEN BEEF': BEEP : GOTO 1 
0 ELSE GOSUB 360 

50 -LOCATE 4, 7: FRI NT "INTRODUCE 1_A 

EGUNDA CLAVE" :B* = IN!'.EY* 

60 IF B*="" THEN 150 ELSE 2CGUP 3 



■ B*="C"THEN 



80 ELSE GOSUB ! 
iCERA CLAVE' 



60 



:C-t I 1 



. F<E :. : r 



"IN - 



ie» ELSE GOSUB " 
"HEN BEEP: BEEP: GOTO 2 
17: PRINT" INTRODUCE LA 



r HEM 211 



ELSÍ i 



dsub : 



"I" THEN BEEP ti 



en menos de un minuto. Cada \ 
que -falles tendrás auevolver ¿ 

ntroducir desde la primera otra 

z"; 

300 PRINT" No es necesario apri 
r CRETURN3 en ningún momento. 

aprietas el C STOP] + CCTRL3 sa t 
rará el programa de la me-moria, 
emoria ocupada por el Droarama",2 
8315-FRE <0) : "Bytes. " 
310 LOCATE 12. 12: PRINT"BUERTE" : LO 
ATE 12.22:PRINT"PULSA UNA TECLA" 
320 W*=INKEY*:IF W*="" GOTO 320 
330 '* SUBRUTINA DE FINAL * 
340 CL3: TIME=0: RETURN 
350 IF TI ME/ 50: 60 THEN CLS: LOCATE 



ELVDPDEL0SMSX2 (U) 



Segunda entrega de la serie se 
bre el procesador de video de los 
MSX2 



LOS REGISTROS DEL VDP 



del VDP. Todos es 



datos del VDP y obtener it 
estado del procesador. El ar 
los MSX disponía de un úri 
estado, equivalente al regist 



con 16 registros de nueve bits. El 
del color se logra reservando tres b 
cada uno de los colores básicos, el 
verde y el rojo (RGB). 



£1 segundo es el dato a fácil 
tacaba del BASIC VDP (n) 
l1 mismo registro. Nótese qu 



0 (0) 

1 (l) Selección del modo 

2 (2) Tabla de nombres 

3 (3) Tabla del color (byte bajo) 

4 (4) Tabla de patrones 

"i (5) Tabla de atributos de SPRITE 

(byte bajo) 

6 (6) Tabla de patrones de SPRITE 




7 (7) Color del borde 

8 (9) Selección de modo 

9 (10) Selección de modo 

10 (11) Tabla del color (byte alto) 

11 (12) Tabla de atributos de SPRITE 

(byte alto) 

12 (13) Color de la tinta en modo te> 

13 (14) Periodo de visualización < 



1 (42) NX, número de puntos a a 

en dirección X (byte alto) 

2 (43) NY, número de puntos a c. 

en dirección Y (byte bajo) 
43 (44) NY, número de puntos a c< 

en dirección Y (byte alto) 
A (45) Color, para intercambio de i 

con la CPU 
■5 (46) Registro de argumento (cont 



8) Información sobre las Ínter 

— 1 ) Información sobre las ir 

—2) Información sobre los con 
—3) Coordenada X de la di 

(byte bajo) 
—5) Coordenada Y de la di 



■ (15) Dirección de aci 



20 (21) C 

21 (22) C 

22 (23) C 



la VRAM 



4 (35) SY, coordenada Y para 

5 (36) SY, coordenada Y para 

(byte alto) 

6 (37) DX, coordenada X de 

(byte alto) 

7 (38) DX, coordenada X de 

(byte alto) 

8 (39) DY, coordenada Y de 

(byte bajo) 

9 (40) DY, coordenada Y de 

(byte alto) 
0 (41) NX, número de puntos a ce 
en dirección X (byte bajo) 



ACCESO A LOS REGISTROS 

antiguo VDP era controlado enviando 
ribiendo datos en los puertos &H98 y 
19. El nuevo VDP usa estos dos puer- 
junto con los situados en &H9A y 
&H9B. 

&H98: Lectura/esctitura de datos en la 
VRAM. 

&H99: Lectura de un registro de esta- 
do/escritura en un registro de control. 

&H9A: Escritura en uno de los registros 
de la paleta. 

&H9B: Escritura en un registro de con- 



tó, &H99, el número d 

Por ejemplo, para escribir < 
' puerto 1, las instruccior 
r. OUT (&H99), 191; ( 



X del VDP: el método indi- 



registro a acceder se¡ 
3 17 con los dos h 
1 cero. El primer date 
el puerto &H9B, ser; 



Método sin incremento 
OUT (&H99),&H80+36 
OUT (&H99),&H80+17 



10 FM X-4HB0Ü0 T0 *HS089:READ VI 
M POK I,Vd('lH'tVI):S*fEEK(I) 
30 NEXTI1F SO14920 THEN BEEP:CLS: PRIMT' 
HAY UN ERROR':EN0 

10 DflTflCB , 3F , CB , 35 . 80 , F 1 , E6 , 0F , CD , 35 , 80 , 
23, 00,36, 2C,3A,74,B0,BA,20,04,3A,73,B0,8 
6,13,20,07, CD,41,BO,00,36,00,00,00,36,01 

,00,2a,cí,f6,22,c6,f6,22,c4,f6,22,c2,f6, 
fb,09,c6,30,23,0c,fe,3*,38,02,c6,07,77,c 

9 

SO DATA36 , 00 , 23 , 0C , £5 , 06, 00 , DO , 75 , 00 , DD , 
74, 01, 2A,C6,F6,09, 22, C6,F6,0D,4E, 02, 00,1 
6,03,03,E1,E5,0D,E1, 00,71, 02,00,70,03,00 
, 36, 04, 84, 01, 04, 00, 09, C9, 76, B0, 00, 80,8?, 
B0,AF,D3,99,3E,8F,D3,99,E0,78,C9,O0,00,0 



SO DATAOO,00,00,00,00,00, 00,00 




60 Z*«imtEV»:lFZ»»"THEH60 
70 QUT(tH99),l 
80 0UTCÍH99) .ÍH80+15 
90 0UT(lH9A),»B011101il 
100 0UTUH9A), 4600000111 



60 NEIT 

70 V0P(7)=*HF1 

80 VDP(13)»W1F 

90 mw-mt 

100 F0R 1=2048*230 T0 2048*239 




40 SCREENS:CLS 

SO C0PY <0,0>-(255,43> T0 (0,212) 
60 0P£N'6RP:'AS1 
70 FGR I=0T02SS STEP 64 
75 PRESET (50,1) 

80 PRINTM , 'ESTA ES LA LINEA:')! 
90 NEIT 
100 A-STICK(O) 

110 IF A«l THEN V0P(24)«(V0P(24)-i: 
FF 

120 IF A'S THEN V0P(24)«(V0P(24)*1>AND»H 



(R36),HL 
DE,(DI1) 
A.IO0O0U0O 



CALL FIHC0B 
LO A, 36 
OUT (199), A 
LO A,»80*17 
(HIT (199), A 
LO CI9B 
LD 8,11 
LO HL,R36 
0TIR 



730 R3S: 
740 R37: 
750 R38: 
760 R39! 



850 ¡VARIABLES 0EL USUARIO 



50 ESTADO: OUT (499), A 



45 



CALL XXII 




NUMEROS ATRASADOS • NUMEROS ATRASADOS 




¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A: «MSX-EXTRA» 
— DPTO. SUSCRIPCIONES. C Roca i Batlle, 10-12, 08023 Barcelona 

| — — — BOLETIN DE PEDIDO — 

| Deseo recibir los números de MSX-EXTRA 

para lo cual adjunto talón del Banco n.° a la orden de Manhattan Transfer, S. A. 

I Nombre y apellidos 

| Dirección Te) . 

Población DP Prov .No x admite oonfemqbok. 



TRUCOS DEL PROGRAMADOR 




Los lectores de MSX-Extra no podrán echar de menos una de las 
secciones con más solera en esa revista. Trucos del Programador. Y la 
razón es bien sencilla, en nuestro ánimno de incluir en la nueva MSX- 
Club toda 



MAYUSCUUS,MINUSCUUS 



la posición &HFCAB. Cuando esta posición de memoria 



POKE &HFCAB.0 para en 
POKE &HFCAB.1 para entrar en modo mayúsculas 
Ocurre, sin embargo, que es poco elegante escribir en 
mayúsculas con el LED de CAPS LOCK apagado. Puede llevar 

también es fácil EL LED de la tecla CAPS LOCK se controla 

de Periféricos). Para acceder a él basta con hacer 8 

OUT &HAA , INP(&HAA) OR &BO1000000 para apa- 



SPRITES GIGANTES 



de las consultas que con frecuenci 
lyor a 16X16. Como todos sabri 



Por ejemplo, para crear sprites de 
crear 4 de 16X16 y utilizarlos de la siguie 
PUT SPRITE 1,(X,Y),C,1 
PUT SPRITE 2,(X+16,Y),Q2 
PUT SPRITE 3,(X,Y+16),C,5 
PUT SPRITE 4,(X+16,Y+16),C,4 
Debéis, sin embargo, tener en cuen 
primero de ellos es que las instruccio: 
diferentes sprites deben estar lo más jun 
algún parpadeo podéis eliminarlo cambi; 





éprog Adate 



1 



SONY TIENE CANTIDAD DE PROGRAMAS 

Increíbles juegos de acción, destreza, inteligencia. 
Divertidos programas de dibujo y diseño. 
SONY lo tiene todo para que demuestres tus habilidades de 
campeón con el MSX. 

¿POR CUAL QUIERES EMPEZAR? 



Consigue más Información y 
aprovéchate de las ofertas y 

regalos del Club SONY MSX 
envlándonos tu nombre, 

dirección y ocupación, junto 
i a una fotocopia de la ga- 
l rantía de tu ordenador MSX a: 



w 

ÜJ 



Club SONY MSX Apartado de Correos 61.278 28080 MADRID 



